DEFINITION MODULE FormTool;

(*
Form Tools.

UK __DATE__ __TIME__
*)

(*DEF_SWITCHES*)

FROM AES    IMPORT ObjectIndex,TreePtr,TreeIndex;
FROM RcMgr  IMPORT GRect;
FROM PORTAB IMPORT SIGNEDWORD,UNSIGNEDWORD;

IMPORT FormMgr;

PROCEDURE DoAlert(DefBut : UNSIGNEDWORD;
                  AlertNo: TreeIndex): UNSIGNEDWORD;

PROCEDURE Alert(AlertNo: TreeIndex);

PROCEDURE OK(AlertNo: TreeIndex): BOOLEAN;


TYPE FormDials = FormMgr.FormDials;

PROCEDURE FormDial(    Dial: FormDials;
                   VAR From: GRect;
                   VAR To  : GRect);

PROCEDURE FormCenter(    Tree: TreePtr;
                     VAR Rect: GRect);

PROCEDURE FormDo(Tree   : TreePtr;
                 StartOb: ObjectIndex): SIGNEDWORD;

PROCEDURE Mask(RetOb: SIGNEDWORD): ObjectIndex;

PROCEDURE DoubleClicked(VAR RetOb: SIGNEDWORD): BOOLEAN;

END FormTool.
